PC-X 1997 October/pcx14_9710.iso/swag/delphi.swg/0186_Navigating a Multiselected Listbox.pas

Pascal/Delphi Source File | 1996-11-29 | 337 b | 14 lines

This example shows a message for every element in a listbox that
has been selected by the user.

procedure TForm1.Button1Click(Sender: TObject);
var
  Loop: Integer;
begin
  for Loop := 0 to Listbox1.Items.Count - 1 do begin
    if Listbox1.Selected[Loop] then
      ShowMessage(Listbox1.Items.Strings[Loop]);
  end;
end;